SUBROUTINE RDFUNC(F)
	DIMENSION F(512)
	DOUBLE PRECISION NAM
1	FORMAT(' TYPE FUNC FILE NAME  '$)
2	FORMAT(' TYPE FUNCTION NAME  '$)
7	FORMAT(A10)
3	FORMAT(A5,A1,A5)
8	FORMAT(8F)

4	TYPE 1
	ACCEPT 7,NAM
	TYPE 2
	ACCEPT 3,NF
	REWIND 1
	CALL DEFINE(1,0,NONO,NAM)
5	READ(1,3,END=4)J,K,K
	IF(J.NE.'SEG')GO TO 5
	IF(K.NE.NF)GO TO 5
6	READ(1,8,END=4)A,B
	IF(B.LE.100.)GO TO 6
	READ(1,8)F
	END